home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / GS3.ZIP / GunSlinger3 / events.ini < prev    next >
INI File  |  1997-04-01  |  20KB  |  509 lines
  1. [Events]
  2. n0=;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ
  3. n1=;ñ //½Gs3ñ]  ñççñ EVENTS ñççñ The GunSlinger 3 ñççñ          ñ
  4. n2=;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ by SixGun ñ ñ ñ ñ
  5. n3=;
  6. n4=;ç=ç=ç=ç=ç=ç=ç=-<[//* IAL UPDATING ON JOIN *//]>=ç=-
  7. n5=;
  8. n6=+500:ON JOIN:#: {
  9. n7=  .enable #ialupdate
  10. n8=  echo -a 1çç[12Updating IAL1]╗ for12 $chan 
  11. n9=  who $chan
  12. n10=}
  13. n11=;
  14. n12=;ç=ç=ç=ç=ç=ç=ç=-<[//* USER NOTIFICATION *//]>=ç=-
  15. n13=;
  16. n14=#Notify start
  17. n15=100!:ON NOTIFY:{
  18. n16=  .enable #Verify
  19. n17=  whois $nick
  20. n18=}
  21. n19=#Notify end
  22. n20=;
  23. n21=;ç=ç=ç=ç=ç=ç=ç=-<[//* MESSAGES WHILE AWAY *//]>=ç=-
  24. n22=;
  25. n23=#Message disabled
  26. n24=+100!:ON TEXT:*:?:{
  27. n25=  if (%Mess == ON) {
  28. n26=    msg $nick 1çç[12Away Messages⌐1]╗ UnKnown User ½ç╗ $+ $Nick $address $+ ½[4Access Denied1] | close -m $nick | ignore -pu35 $wildsite
  29. n27=    halt
  30. n28=  }
  31. n29=}
  32. n30=+200!:ON TEXT:*:?:{
  33. n31=  if (%Mess == ON) && ($away == $true) {
  34. n32=    msg $nick 1çç[12Away Messages⌐1]╗ Recognize ½ç╗ $Nick $address ½[12Leave Message Now!1] %tg
  35. n33=    .ruser $nick 3
  36. n34=    .guser =410 $nick 3
  37. n35=    .timer103 1 80 Guser 200 $nick 3
  38. n36=  }
  39. n37=}
  40. n38=+300!:ON TEXT:*:?:{
  41. n39=  if (%Mess == ON) && ($away == $true) {
  42. n40=    msg $nick 1çç[12Away Messages⌐1]╗ Recognize ½ç╗ $Nick $address ½[12Leave Message Now!1] %tg
  43. n41=    .ruser $nick 3
  44. n42=    .guser =411 $nick 3
  45. n43=    .timer103 1 80 Guser 300 $nick 3
  46. n44=  }
  47. n45=}
  48. n46=+400!:ON TEXT:*:?:{
  49. n47=  if (%Mess == ON) && ($away == $true) {
  50. n48=    msg $nick 1çç[12Away Messages⌐1]╗ Recognize ½ç╗ $Nick $address ½[12Leave Message Now!1] %tg
  51. n49=    .ruser $nick 3
  52. n50=    .guser =412 $nick 3
  53. n51=    .timer103 1 80 Guser 400 $nick 3
  54. n52=  }
  55. n53=}
  56. n54=410!:ON TEXT:*:?:{
  57. n55=  if (%Mess == ON) {
  58. n56=    if (%MR >= 1) { inc %MR 1 }
  59. n57=    if (%MR == No) { set %MR 1 }
  60. n58=    write %MPath ç╗ $Nick $address ½ç╗ $parms ½ç╗ $atime ½ç╗ $day $adate ½ñ//ç
  61. n59=    msg $nick 1çç[12Away Messages⌐1]╗ Message Recieved ½ç╗ $atime $day $adate ½[12 $+ $nick $+ 1] %tg
  62. n60=    .ignore -pu35 $wildsite
  63. n61=    .ruser =410 $nick 3
  64. n62=    .guser 200 $nick 3 | .Timer103 off
  65. n63=    close -m $nick
  66. n64=    halt
  67. n65=  }
  68. n66=}
  69. n67=411!:ON TEXT:*:?:{
  70. n68=  if (%Mess == ON) {
  71. n69=    if (%MR >= 1) { inc %MR 1 }
  72. n70=    if (%MR == No) { set %MR 1 }
  73. n71=    write %MPath ç╗ $Nick $address ½ç╗ $parms ½ç╗ $atime ½ç╗ $day $adate ½ñ//ç
  74. n72=    msg $nick 1çç[12Away Messages⌐1]╗ Message Recieved ½ç╗ $atime $day $adate ½[12 $+ $nick $+ 1] %tg
  75. n73=    .ignore -pu35 $wildsite
  76. n74=    .ruser =411 $nick 3
  77. n75=    .guser 300 $nick 3 | .Timer103 off
  78. n76=    close -m $nick
  79. n77=    halt
  80. n78=  }
  81. n79=}
  82. n80=412!:ON TEXT:*:?:{
  83. n81=  if (%Mess == ON) {
  84. n82=    if (%MR >= 1) { inc %MR 1 }
  85. n83=    if (%MR == No) { set %MR 1 }
  86. n84=    write %MPath ç╗ $Nick $address ½ç╗ $parms ½ç╗ $atime ½ç╗ $day $adate ½ñ//ç
  87. n85=    msg $nick 1çç[12Away Messages⌐1]╗ Message Recieved ½ç╗ $atime $day $adate ½[12 $+ $nick $+ 1] %tg
  88. n86=    .ignore -pu35 $wildsite
  89. n87=    .ruser =412 $nick 3
  90. n88=    .guser 400 $nick 3 | .Timer103 off
  91. n89=    close -m $nick
  92. n90=    halt
  93. n91=  }
  94. n92=}
  95. n93=#Message end
  96. n94=;
  97. n95=;ç=ç=ç=ç=ç=ç=ç=-<[//* STRICK OPPERATOR MODE *//]>=ç=-
  98. n96=;
  99. n97=#StrickOps disabled
  100. n98=@100!:ON OP:#:{
  101. n99=  if ($me !isop $chan) { halt }
  102. n100=  if ($level($address($opnick,3)) <= 200 ) { 
  103. n101=    Mode $chan -o $Opnick
  104. n102=    echo -a 1ç[4UNAUTHORIZED OP's⌐1]╗ Were Given by $nick $+ ! ½[12 $+ $Opnick $address($opnick,3) $+ 1] 
  105. n103=    //N $nick 1çç[12STRICT OPS⌐1]╗ Sorry12 $nick $+ ! 4 $+ $opnick 1is not on my ½[12OP LIST!1] %tg
  106. n104=    //N $Opnick 1çç[12STRICT OPS⌐1]╗ Sorry12 $Opnick 1You are not on my ½[12OP LIST!1] %tg
  107. n105=  }
  108. n106=  else { halt }
  109. n107=}
  110. n108=100:ON SERVEROP:#:{
  111. n109=  if ($opnick == $me) { Halt }
  112. n110=  elseif (($opnick == X) || ($opnick == W)) { Halt }
  113. n111=  elseif ($opnick isauto $chan ) { Halt }
  114. n112=  else { raw -q mode $Chan -o $opnick }
  115. n113=}
  116. n114=#StrickOps end
  117. n115=;
  118. n116=;ç=ç=ç=ç=ç=ç=ç=-<[//* TOP OPPERATOR Protecton *//]>=ç=-
  119. n117=;
  120. n118=#OpProtect start
  121. n119=100!:ON DEOP:#:{
  122. n120=  if ($nick == $opnick) { halt }
  123. n121=  elseif ($OpNick == $me) {
  124. n122=    if (X ison $Chan) { msg X op $chan $me } | else { msg W op $chan $me }
  125. n123=    if (%opped == ON) { N $nick 1çç[12Undernet Pro⌐1]╗ Activated for $me ½[12 $+ $chan $+ ] %tg }
  126. n124=  }
  127. n125=  elseif (($level($address($opnick,3)) >= 400) && ($level($address($nick,3)) < 400)) { 
  128. n126=    mode $chan +o $opnick
  129. n127=    if (%opped == ON) { N $nick 1çç[12Gs3's TopOp Pro1]╗ You May not Deop12 $opnick 1On ½[12 $+ $chan $+ 1] %tg }
  130. n128=    else { halt }
  131. n129=  }
  132. n130=}
  133. n131=100!:ON BAN:#:{
  134. n132=  if (($banmask iswm $address($me,0)) || ($banmask iswm $me $+ $address($me,0)) || ($bnick == $me)) { Mode $chan -b $Banmask }
  135. n133=}
  136. n134=400!:ON BAN:#:{
  137. n135=  mode $chan -o $nick | mode $chan -b $banmask 
  138. n136=  if (%opped == ON) { msg $chan 1çç[12Gs3's TopOp Pro1]╗ You May Not Ban A Top Operator ½[12 $+ $nick $+ 1] %tg }
  139. n137=}
  140. n138=100!:ON KICK:#:{
  141. n139=  if ($knick == $me) {
  142. n140=    if (X ison $chan) { msg X clearmode $chan | msg X invite $chan $me }
  143. n141=    if (W ison $chan) { msg W clearmode $chan | msg W invite $chan $me }
  144. n142=    if (%opped == ON) { N $nick 1çç[12Undernet Pro⌐1]╗ Activated for $me ½[12 $+ $chan $+ ] %tg }
  145. n143=  }
  146. n144=  elseif ($level($address($knick,3)) >= 200) { %Findit = $readini Gs3seen.ini address $address($knick,3)
  147. n145=    writeini Gs3seen.ini seenlast $remove($remove(%Findit,[),]) $knick Was Kicked from $chan by $nick
  148. n146=    writeini Gs3seen.ini time $address $remove($remove(%Findit,[),]) $ctime 
  149. n147=    write %kickpath $knick $Address($knick,1) was kicked from $chan by $Address($nick,1) On $day, $adate, At $atime %tz $+ . %tg  
  150. n148=  } 
  151. n149=  else { write %kickpath $knick $Address($knick,1) was kicked from $chan by $Address($nick,1) On $day, $adate, At $atime %tz $+ . %tg | halt }
  152. n150=}
  153. n151=100:on invite:*:{
  154. n152=  if (($nick == X) || ($nick == W)) {
  155. n153=    msg $nick unban $chan $me
  156. n154=    timer 1 10 Join $chan
  157. n155=    timer 1 11 msg $nick Op $chan $me
  158. n156=  }
  159. n157=}
  160. n158=100!:ON MODE:#:{
  161. n159=  if (($me !isop $chan) || ($level($address($nick,3)) >= 300 )) { halt }
  162. n160=  elseif ($parms != +tn) {
  163. n161=    mode $chan +tn-spmilk $chan($chan).key 
  164. n162=    if (%opped == ON) { Msg $chan 1çç[12Mode Chek⌐1]╗ Unathorized Channel Mode Change by ½[12 $+ $nick $+ 1] %tg }
  165. n163=  }
  166. n164=}
  167. n165=100:ON SERVERMODE:#:{
  168. n166=  if ($parms != +tn) {
  169. n167=    mode $chan +tn-spmilk $chan($chan).key
  170. n168=  }
  171. n169=}
  172. n170=#OpProtect end
  173. n171=;
  174. n172=;ç=ç=ç=ç=ç=ç=ç=-<[//* Raist's Clone Scan Protection *//]>=ç=-
  175. n173=;
  176. n174=#ialdet start
  177. n175=100!:ON JOIN:#: {
  178. n176=  if ($level($address($nick,3)) < 400) {
  179. n177=    set %ticks $ticks | set %joinchan $chan | joindet
  180. n178=  }
  181. n179=}
  182. n180=#ialdet end
  183. n181=;
  184. n182=;ç=ç=ç=ç=ç=ç=ç=-<[//* DCC WAVSHARE *//]>=ç=-
  185. n183=;
  186. n184=#WAVSHARE disabled
  187. n185=100:ON TEXT:!*.wav:*:if ($parm1 == %me ) { dcc send $nick $wavedir $+ $parm2 }
  188. n186=100:ON NOTICE:!*.wav:*:if ($parm1 == %me ) { dcc send $nick $wavedir $+ $parm2 }
  189. n187=100:ON TEXT:!*.mid:*:if ($parm1 == %me ) { dcc send $nick %MidiPath $+ $parm2 }
  190. n188=100:ON NOTICE:!*.mid:*:if ($parm1 == %me ) { dcc send $nick %MidiPath $+ $parm2 }
  191. n189=100:ON NOSOUND:{
  192. n190=  set %Wnick $nick
  193. n191=  set %WavNick ! $+ $nick $filename
  194. n192=  if (( %WavShr == Auto ) && ( %WavAsk == Text )) { msg $chan ! $+ $nick $filename }
  195. n193=  if (( %WavShr == Select ) && ( %WavAsk == Text )) { echo -a 1çç[12WavAsk Select⌐1]╗ Press 12(F8) 1To Request12 $filename 1from ½[12 $+ $nick $+ 1] }
  196. n194=  if (( %WavShr == Auto ) && ( %WavAsk == Notice )) { Notice $nick ! $+ $nick $filename }
  197. n195=  if (( %WavShr == Select ) && (WavAsk == Notice )) { echo -a 1çç[12WavAsk Select⌐1]╗ Press 12(F8) 1To Request12 $filename 1from ½[12 $+ $nick $+ 1] }
  198. n196=  if ( %WavShr == Disabled ) { halt }
  199. n197=}
  200. n198=#WAVSHARE end
  201. n199=;
  202. n200=;ç=ç=ç=ç=ç=ç=ç=-<[//* PRIVMSG FILTER *//]>=ç=-
  203. n201=;
  204. n202=#Privmsg start
  205. n203=+100!:ON TEXT:*:?: {
  206. n204=  if ((%pri == ON) && (%Mess == OFF)) {
  207. n205=    ignore -pu30 $wildsite
  208. n206=    close -m $nick
  209. n207=    N $nick 4ç//ñ╗ Unknown User Private Message Denied ½ñ//ç %tg
  210. n208=    echo -a 12Denied Privmsg from ç//ñ╗3 $nick $address 12½ñ//ç
  211. n209=    Halt
  212. n210=  }
  213. n211=  else { Halt }
  214. n212=}
  215. n213=200:ON TEXT:*:?:=
  216. n214=#Privmsg end
  217. n215=;
  218. n216=;ç=ç=ç=ç=ç=ç=ç=-<[//* Ascii*Text*DCC *//]>=ç=-
  219. n217=;
  220. n218=#AsciiShare start
  221. n219=100:ON TEXT:*:?:if ($parm1 == %me ) { dcc send $nick C:\asciipic\ $+ $parm2 }
  222. n220=#AsciiShare end
  223. n221=;
  224. n222=;ç=ç=ç=ç=ç=ç=ç=-<[//* DCC Flood Protection *//]>=ç=-
  225. n223=;
  226. n224=#EDCC start
  227. n225=+100:ON TEXT:XDCC *:*: {
  228. n226=  ignore -aptu180 $wildsite
  229. n227=  echo -a 12çñ $+ $parms $+ ñç denied çñ $nick $address ñç
  230. n228=  N $nick 1çç[12Gs3's XDCC⌐1]╗ UNKNOWN USER ñçñ $nick $address ½[12ACCESS DENIED1] %tg
  231. n229=  Halt
  232. n230=}
  233. n231=#EDCC end
  234. n232=;
  235. n233=;ç=ç=ç=ç=ç=ç=ç=-<[//* ON DNS *//]>=ç=-
  236. n234=;
  237. n235=100:ON DNS:echo -a 12,8ççç]╗ DNS for [ $nick at $address ] | echo -a 12,8ççç]╗IP Address is $iaddress | Whois $nick | Who $iaddress | who $nick
  238. n236=;
  239. n237=;ç=ç=ç=ç=ç=ç=ç=-<[//* SHITLIST Protection *//]>=ç=-
  240. n238=;
  241. n239=#Shitlist start
  242. n240=+99:ON TEXT:*:#:if ( $nick ison $chan ) { Shit } | else { PShit }
  243. n241=+99:ON TEXT:*:?:ignore -pu10 | close -m $nick | if ( $nick ison $chan ) { Shit } | else { PShit } | halt
  244. n242=+99:ON ACTION:*:#:if ( $nick ison $chan ) { Shit } | else { PShit }
  245. n243=+99:ON ACTION:*:?:if ( $nick ison $chan ) { Shit } | else { PShit } | close -cmfgsi $nick
  246. n244=+99:ON NOTICE:*:#:if ( $nick ison $chan ) { Shit } | else { PShit }
  247. n245=+99:ON NOTICE:*:?:if ( $nick ison $chan ) { Shit } | else { PShit } | close -cmfgsi $nick
  248. n246=+99:ON JOIN:#:Shit
  249. n247=+99:ON TOPIC:#:if ( $nick ison $chan ) { Shit } | else { PShit }
  250. n248=+99:ON MODE:#:if ( $parms != +tn ) { mode # +tn-spklmi } | if ( $nick ison $chan ) { Shit } | else { PShit }
  251. n249=+99:ON OP:#:Mode # -o $nick | Shit
  252. n250=+99:ON KICK:#:KShit 
  253. n251=+99:ON PART:#:PShit
  254. n252=+99:ON QUIT:PShit
  255. n253=#Shitlist end
  256. n254=;
  257. n255=;ç=ç=ç=ç=ç=ç=ç=-<[//* UNDERNET SPLIT DETECTOR *//]>=ç=-
  258. n256=;
  259. n257=#USplit disabled
  260. n258=1:ON SNOTICE:*Break*:%say 1çç[12NetSplit⌐1]╗ $parm7 ½[4BREAK1] %tg | halt
  261. n259=1:ON SNOTICE:*Junction*:%say 1çç[12NetJoin⌐1]╗ NetJoin $parm7 12to1 $parm6 ½[12Junction1] %tg | halt
  262. n260=1:ON SNOTICE:*:!
  263. n261=#USplit end
  264. n262=;
  265. n263=;ç=ç=ç=ç=ç=ç=ç=-<[//* LASTSEEN NICK ON CHANNEL *//]>=ç=-
  266. n264=;
  267. n265=#Seen start
  268. n266=100!:ON PART:#: {
  269. n267=  if ($level($Address($nick,3)) > 199) { goto see }
  270. n268=  if (($me !isop $chan) && (%opped != ON)) { goto see } | else {
  271. n269=    if (% [ $+ P [ $+ [ $nick ] ] ] != $nick) { goto Set } | else {
  272. n270=      inc %pn 1
  273. n271=      if (%pn < 2) { goto see }
  274. n272=      if (%pn == 2) {
  275. n273=        Ban -u15 $chan $nick 2
  276. n274=        Notice $nick 1çç[12Part/Join Flood⌐1]╗ Now Triggered ½[4+15 Sec. Ban1]
  277. n275=        unset % [ $+ P [ $+ [ $nick ] ] ] %pn | halt
  278. n276=      }
  279. n277=    }
  280. n278=    :set | set % [ $+ P [ $+ [ $nick ] ] ] $nick | .timer44 1 4 unset % [ $+ P [ $+ [ $nick ] ] ] %pn
  281. n279=    :see
  282. n280=    if ($level($address($nick,3)) >= 200) { 
  283. n281=      %Findit = $readini Gs3seen.ini address $address($nick,3)
  284. n282=      writeini Gs3seen.ini seenlast $remove($remove(%Findit,[),]) $nick Parted $chan
  285. n283=      writeini Gs3seen.ini time $remove($remove(%Findit,[),]) $ctime 
  286. n284=    }
  287. n285=  }
  288. n286=}
  289. n287=200:on quit: {
  290. n288=  if ($level($address($nick,3)) >= 200) { 
  291. n289=    %Findit = $readini Gs3seen.ini address $address($nick,3)
  292. n290=    writeini Gs3seen.ini seenlast $remove($remove(%Findit,[),]) $nick Quit IRC With the message ½[ $+ $parms $+ ]
  293. n291=    writeini Gs3seen.ini time $remove($remove(%Findit,[),]) $ctime  
  294. n292=  }
  295. n293=}
  296. n294=100!:ON KICK:#: {
  297. n295=  if ($level($address($knick,3)) >= 200) { %Findit = $readini Gs3seen.ini address $address($knick,3)
  298. n296=    writeini Gs3seen.ini seenlast $remove($remove(%Findit,[),]) $knick Was Kicked from $chan by $nick
  299. n297=    writeini Gs3seen.ini time $address $remove($remove(%Findit,[),]) $ctime 
  300. n298=    write %kickpath $knick $Address($knick,1) was kicked from $chan by $nick $Address($nick,1) On $day, $adate, At $atime %tz $+ . %tg 
  301. n299=  } 
  302. n300=  else { write %kickpath $knick $Address($knick,1) was kicked from $chan by $Address($nick,1) On $day, $adate, At $atime %tz $+ . %tg | halt }
  303. n301=}
  304. n302=#Seen end
  305. n303=;
  306. n304=;ç=ç=ç=ç=ç=ç=ç=-<[//* USER ALLOWED LASTSEEN *//]>=ç=-
  307. n305=;
  308. n306=#UserSeen disabled
  309. n307=200:on text:!seen*:#: {
  310. n308=  ignore -u10 $wildsite
  311. n309=  if ($readini Smut.ini SmutWords $parm2 != $null) {
  312. n310=    N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Funny $nick Very Funny! :( | halt
  313. n311=  }
  314. n312=  %Seeit = op $parm2
  315. n313=  %Usedto = $ctime - [ $readini Gs3seen.ini time $parm2 ]
  316. n314=  %didit = $readini Gs3seen.ini seenlast $parm2 
  317. n315=  if ($parm2 == $me) {
  318. n316=    N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Hey Wait a Minute thats Me???--Are YOU OK??? | halt
  319. n317=  }
  320. n318=  if (($Listed($parm2) != %Seeit) || ($Listed($parm2) == $null))  {
  321. n319=    N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Who the Hell is ½[12 $+ $parm2 $+ 1] | halt
  322. n320=  }
  323. n321=  elseif ($parm2 == $nick) { 
  324. n322=    if ($Tureaddy($address($parm2,3)) == %Seeit) {
  325. n323=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Ok I give up! You Tell Me about ½[12 $+ $parm2 $+ 1] %tg | halt
  326. n324=    }
  327. n325=    elseif ($Tureaddy($address($parm2,3)) != %Seeit) {
  328. n326=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ I Saw12 $parm2 1 $+ $duration(%Usedto) ago! When %didit
  329. n327=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Please Change your Nick you are NOT ½[12 $+ $parm2 $+ 1] %tg | halt
  330. n328=    }
  331. n329=  }
  332. n330=  if ($parm2 ison $chan) {
  333. n331=    if ($Tureaddy($address($parm2,3)) == %Seeit) {
  334. n332=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Hey Look around!12 $parm2 1is Here Now!
  335. n333=    }
  336. n334=    elseif ($Tureaddy($address($parm2,3)) != %Seeit) {
  337. n335=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ I Saw12 $parm2 1 $+ $duration(%Usedto) ago, When %didit However someone is using12 $parm2 $+ 's 1nick Right Now
  338. n336=    }
  339. n337=  } 
  340. n338=  else {
  341. n339=    if ($Tureaddy($address($nick,3)) == %Seeit) {
  342. n340=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Hey12 $parm2 1Are you Joking? I know you No Matter what your nick is lol
  343. n341=    }
  344. n342=    elseif ($Listed($parm2) == %Seeit)  {
  345. n343=      %Cswitch = $chan
  346. n344=      %ThisNick = $nick
  347. n345=      %ThatNick = $parm2
  348. n346=      TheChan
  349. n347=      N $nick 1çç[12Gs3's Last*Seen⌐1]╗ Hey I Saw $parm2 $duration(%Usedto) ago! When %didit
  350. n348=    }
  351. n349=  }
  352. n350=}
  353. n351=#UserSeen end
  354. n352=;
  355. n353=;ç=ç=ç=ç=ç=ç=ç=-<[//* Opped and NonOp Flood Protection *//]>=ç=-
  356. n354=;
  357. n355=#ETANN start
  358. n356=100!:ON TEXT:*:#:{
  359. n357=  if ($level($address($nick,3)) >= 200) { Halt }
  360. n358=  elseif ($me isop $chan) && (%opped == ON) { 
  361. n359=    .guser 101 $nick 3
  362. n360=    .timer401 1 2 .ruser 101 $nick 3
  363. n361=  }
  364. n362=}
  365. n363=+101!:ON TEXT:*:#:{
  366. n364=  .guser 102 $nick 3
  367. n365=  .timer402 1 2 .ruser 102 $nick 3
  368. n366=}
  369. n367=+102!:ON TEXT:*:#:{
  370. n368=  .guser 103 $nick 3
  371. n369=  .timer403 1 2 .ruser 103 $nick 3
  372. n370=}
  373. n371=+103!:ON TEXT:*:#:{
  374. n372=  .guser 104 $nick 3
  375. n373=  .timer404 1 2 .ruser 104 $nick 3
  376. n374=}
  377. n375=+104!:ON TEXT:*:#:{
  378. n376=  .guser 105 $nick 3
  379. n377=  .timer405 1 2 .ruser 105 $nick 3
  380. n378=}
  381. n379=+105!:ON TEXT:*:#:{
  382. n380=  .guser 106 $nick 3
  383. n381=  .timer406 1 3 .ruser 106 $nick 3
  384. n382=}
  385. n383=+106!:ON TEXT:*:#:{
  386. n384=  if ($me isop $chan) && (%opped == ON) {
  387. n385=    Ban -u15 $chan $nick 3
  388. n386=    kick $chan $nick 1çç[12Gs3*TempBan⌐1]╗ Text Flood ½[4+15 Sec. Ban1]
  389. n387=    .ruser 106 $nick 3
  390. n388=  }
  391. n389=  else { .ruser 106 $nick 3 | halt }
  392. n390=}
  393. n391=100!:ON ACTION:*:#:{
  394. n392=  if ($level($address($nick,3)) >= 200) { /beep 0 0 }
  395. n393=  elseif ($me isop $chan) && (%opped == ON) { 
  396. n394=    .guser 101 $nick 3
  397. n395=    .timer401 1 2 .ruser 101 $nick 3
  398. n396=  }
  399. n397=}
  400. n398=+101!:ON ACTION:*:#:{
  401. n399=  .guser 102 $nick 3
  402. n400=  .timer402 1 2 .ruser 102 $nick 3
  403. n401=}
  404. n402=+102!:ON ACTION:*:#:{
  405. n403=  .guser 103 $nick 3
  406. n404=  .timer403 1 2 .ruser 103 $nick 3
  407. n405=}
  408. n406=+103!:ON ACTION:*:#:{
  409. n407=  .guser 104 $nick 3
  410. n408=  .timer404 1 2 .ruser 104 $nick 3
  411. n409=}
  412. n410=+104!:ON ACTION:*:#:{
  413. n411=  .guser 105 $nick 3
  414. n412=  .timer405 1 2 .ruser 105 $nick 3
  415. n413=}
  416. n414=+105!:ON ACTION:*:#:{
  417. n415=  .guser 106 $nick 3
  418. n416=  .timer406 1 3 .ruser 106 $nick 3
  419. n417=}
  420. n418=+106!:ON ACTION:*:#:{
  421. n419=  if ($me isop $chan) && (%opped == ON) {
  422. n420=    Ban -u15 $chan $nick 3
  423. n421=    kick $chan $nick 1çç[12Gs3*TempBan⌐1]╗ Action Flood ½[4+15 Sec. Ban1]
  424. n422=    .ruser 106 $nick 3
  425. n423=  }
  426. n424=  else { .ruser 106 $nick 3 | halt }
  427. n425=}
  428. n426=100!:ON NOTICE:*:#:{
  429. n427=  if ($level($address($nick,3)) >= 200) { Halt }
  430. n428=  elseif ($me isop $chan) && (%opped == ON) { 
  431. n429=    .guser 101 $nick 3
  432. n430=    .timer401 1 2 .ruser 101 $nick 3
  433. n431=  }
  434. n432=}
  435. n433=+101!:ON NOTICE:*:#:{
  436. n434=  .guser 102 $nick 3
  437. n435=  .timer402 1 2 .ruser 102 $nick 3
  438. n436=}
  439. n437=+102!:ON NOTICE:*:#:{
  440. n438=  .guser 103 $nick 3
  441. n439=  .timer403 1 2 .ruser 103 $nick 3
  442. n440=}
  443. n441=+103!:ON NOTICE:*:#:{
  444. n442=  .guser 104 $nick 3
  445. n443=  .timer404 1 2 .ruser 104 $nick 3
  446. n444=}
  447. n445=+104!:ON NOTICE:*:#:{
  448. n446=  .guser 105 $nick 3
  449. n447=  .timer405 1 2 .ruser 105 $nick 3
  450. n448=}
  451. n449=+105!:ON NOTICE:*:#:{
  452. n450=  .guser 106 $nick 3
  453. n451=  .timer406 1 3 .ruser 106 $nick 3
  454. n452=}
  455. n453=+106!:ON NOTICE:*:#:{
  456. n454=  if ($me isop $chan) && (%opped == ON) {
  457. n455=    Ban -u15 $chan $nick 3
  458. n456=    kick $chan $nick 1çç[12Gs3*TempBan⌐1]╗ Notice Flood ½[4+15 Sec. Ban1]
  459. n457=    .ruser 106 $nick 3
  460. n458=  }
  461. n459=  else { .ruser 106 $nick 3 | halt }
  462. n460=}
  463. n461=#ETANN end
  464. n462=;
  465. n463=;ç=ç=ç=ç=ç=ç=ç=-<[//* LAG PING REPLY *//]>=ç=-
  466. n464=;
  467. n465=#Reply disabled
  468. n466=1:ON CTCPREPLY:PING* {
  469. n467=  %pt = $ctime - $parm2
  470. n468=  if (%pt < 0) { set %pt 1 }
  471. n469=  elseif ((%pt >= 3600) || (%pt !isnum 0-3600)) {
  472. n470=    //echo -a 5[ $+ $nick LAMER PING reply] $duration(%pt) %tg
  473. n471=    //ctcp $nick 12[ $+ Lamer PING reply] Cool!!!....Rotfl..not! %tg   
  474. n472=  }
  475. n473=  else {
  476. n474=    //echo -a 5[ $+ $nick PING reply] $duration(%pt) %tg
  477. n475=    //echo -s 2,15This is the $counter(%pop,%th,ee) person you have Ping Replied since %cowtime
  478. n476=    //ctcp $nick 12[ $+ PING reply] $duration(%pt) %tg   
  479. n477=  }
  480. n478=  halt
  481. n479=}
  482. n480=#Reply end
  483. n481=;
  484. n482=;ç=ç=ç=ç=ç=ç=ç=-<[//* Channel LAG PING REPLY *//]>=ç=-
  485. n483=;
  486. n484=#CReply disabled
  487. n485=100:ON CTCPREPLY:PING* {
  488. n486=  %pt = $ctime - $parm2
  489. n487=  if (%pt < 0) { set %pt 1 }
  490. n488=  elseif ((%pt > 65) || (%pt !isnum 0-65)) {
  491. n489=    echo -a 4//ñ Lamer Ping Reply from $nick $address ñ//
  492. n490=    write %Lamepath %png [Lame PING REPLY] from $nick at $address 
  493. n491=  }
  494. n492=  else {
  495. n493=    inc %pg 1
  496. n494=    inc %total %pt
  497. n495=    write %Replypath %png [ $+ $nick PING REPLY] $duration(%pt)
  498. n496=  }
  499. n497=}
  500. n498=#CReply end
  501. n499=;
  502. n500=;ç=ç=ç=ç=ç=ç=ç=-<[//* Others Time REPLY *//]>=ç=-
  503. n501=;
  504. n502=100:ON CTCPREPLY:TIME* { 
  505. n503=  Time $parm5
  506. n504=  %zt 1çç[12Time Chek⌐1]╗12 $nick $+ 's 1Time is 12 $+ %time 1and12 $me $+ 's 1is12 $atime %tz 
  507. n505=}
  508. n506=1:ON ERROR:*:.Notify off | echo 4 -s 4,8[ççç╗ SERVER ERROR 4½ç]2 $parms 4 %tg | halt
  509.